* lread.c (read_vector): Use STRING_SET_CHARS.

diff --git a/src/lread.c b/src/lread.c
index 6900e337c7c90a916fb7122c44a792b1ba14094c..3b06968e084908a433054c1e7600503267f1a915 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2760,7 +2760,7 @@ read_vector (readcharfun, bytecodeflag)
                  /* Coerce string to unibyte (like string-as-unibyte,
                     but without generating extra garbage and
                     guaranteeing no change in the contents).  */
-                 SCHARS (bytestr) = SBYTES (bytestr);
+                 STRING_SET_CHARS (bytestr, SBYTES (bytestr));
                  STRING_SET_UNIBYTE (bytestr);
 
                  item = Fread (bytestr);